home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / operatordemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  266 b   |  21 lines
  1. program OperatorDemo;
  2.  
  3. type
  4.   Vector3 = record
  5.     x, y, z: Real;
  6.   end;
  7.  
  8. var
  9.   a, b, c: Vector3 = (1, 2, 3);
  10.  
  11. operator + (u, v: Vector3) w: Vector3;
  12. begin
  13.   w.x := u.x + v.x;
  14.   w.y := u.y + v.y;
  15.   w.z := u.z + v.z;
  16. end;
  17.  
  18. begin
  19.   c := a + b
  20. end.
  21.